`loadData` <-
function() {
	return(list(car = read.table("car.data", 
						col.names=c("buying", "maint", "doors", "persons", "lug_boot", "safety", "class"), 
						sep=","),
			glass = read.table("glass.data", 
						header=TRUE,
						colClasses=c("numeric","numeric","numeric","numeric","numeric","numeric","numeric","numeric","numeric","numeric","character"),
						sep=","),
			breastCancer = read.table("breast-cancer-wisconsin.data", 
							   col.names=c("clup_thickness", "cell_size", "cell_shape", "adhesion", "epithelial", "nuclei", "chromatin", "nucleoli", "mitoses", "class"), 
							   colClasses=c("numeric","numeric","numeric","numeric","numeric","numeric","numeric","numeric","numeric","character"),
							   sep=",",
							   na.string="?"),
			iris = read.table("iris.data", 
						   col.names=c("sepal_lgth", "sepal_wdth", "petal_lgth", "petal_wdth", "class"), 
						   colClasses=c("numeric","numeric","numeric","numeric","character"),
						   sep=","),
			diabetes = read.table("pima-indians-diabetes.data", 
							col.names=c("pragnet", "glucose_conc", "blood_press", "skin_thickness", "serum_insulin", "BMI", "pedigree_fun", "age", "class"), 
							colClasses=c("numeric","numeric","numeric","numeric","numeric","numeric","numeric","numeric","character"),
							sep=",")
			)
		)
}

